﻿''' <summary>
''' CD144格式结构类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class StructureTerra
    Implements ICloneable
    ''' <summary>
    ''' 年 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_year As String
    ''' <summary>
    ''' 年 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_month As String
    ''' <summary>
    ''' 日 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_day As String
    ''' <summary>
    ''' 时 (string)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_hour As String
    Private m_minute As String = "0"
    ''' <summary>
    ''' 风向，单位度。最小为0，最大值为36,默认值99。单位10度。在AERMET中是每10度一个值，在计算时要进行转换。在AERMET中0表示静风，36表示N。在国内的A文件中0表示N方向。为了方便，把80定义为静风。
    ''' </summary>
    ''' <remarks></remarks>
    Public m_Vane As Double = 99
    ''' <summary>
    ''' 风速，m/s*10。最小值0，最大值500，默认值-9999。标准单位m/s
    ''' </summary>
    ''' <remarks></remarks>
    Public m_WindSpeed As String = -9999
    ''' <summary>
    ''' 总云量，十分制。最小值0，最大值10，默认值99。
    ''' </summary>
    ''' <remarks></remarks>
    Public m_TotalCloud As String = 99
    ''' <summary>
    ''' 干球温度，单位摄氏度*10。最小值-300，最大值350。默认值999
    ''' </summary>
    ''' <remarks></remarks>
    Public m_DryTemp As String = 999
    ''' <summary>
    ''' 云底高度，km*10。最大值为300，最小值为0。默认值为999。国际单位为km
    ''' </summary>
    ''' <remarks></remarks>
    Public m_CloudHeight As String = 999
    ''' <summary>
    ''' 观测站地面气压，millibars*10，即毫巴*10，最小值为9000，最大值为10999，默认值为99999。国际单位hPa(百帕)。气压为760毫米时相当于1013.25毫巴，这个气压值称为一个标准大气。1毫巴相当于100Pa。
    ''' </summary>
    ''' <remarks></remarks>
    Public m_NowPressure As String = "99999"
    Property NowPressure() As Integer
        Get
            Return Me.m_NowPressure
        End Get
        Set(ByVal value As Integer)
            Me.m_NowPressure = value
        End Set
    End Property
    ''' <summary>
    ''' 年 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Year() As String
        Get
            Return Me.m_year
        End Get
        Set(ByVal value As String)
            Me.m_year = value
        End Set
    End Property
    ''' <summary>
    ''' 月 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Month() As String
        Get
            Return Me.m_month
        End Get
        Set(ByVal value As String)
            Me.m_month = value
        End Set
    End Property
    ''' <summary>
    ''' 日 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Day() As String
        Get
            Return Me.m_day
        End Get
        Set(ByVal value As String)
            Me.m_day = value
        End Set
    End Property
    ''' <summary>
    ''' 时 (string)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Hour() As String
        Get
            Return Me.m_hour
        End Get
        Set(ByVal value As String)
            Me.m_hour = value
        End Set
    End Property
    ''' <summary>
    ''' 分
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Minute() As String
        Get
            Return Me.m_minute
        End Get
        Set(ByVal value As String)
            Me.m_minute = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim objCopy As New StructureTerra

        objCopy.m_Vane = Me.m_Vane
        objCopy.m_WindSpeed = Me.m_WindSpeed
        objCopy.m_TotalCloud = Me.m_TotalCloud

        objCopy.m_DryTemp = Me.m_DryTemp

        objCopy.m_CloudHeight = Me.m_CloudHeight

        Return objCopy
    End Function
End Class

